home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Magnum One
/
Magnum One (Mid-American Digital) (Disc Manufacturing).iso
/
d3
/
amac36.arc
/
PAGE23.QM
< prev
next >
Wrap
Text File
|
1991-03-16
|
14KB
|
321 lines
* (PageMaker) v2.3d
*┌────────────────────────────────[ (INDEX) ]──────────────────────────────────┐
*│ Macro Page Breaks Page Numbers ? │
*│ ─────── ─────────── ──────────────────────────────── │
*│ (Alt_4) Yes No | for QMAC txtfiles only │
*│ (Alt_5) Removes Removes | │
*│ (Alt_6) Auto No │
*│ (Alt_7) Yes No │
*│ (Alt_8) " Yes, query │
*│ (Alt_9) " Yes, query bar │
*│ (Alt_0) Removes Removes │
*│ │
*│(Ctl_1) Start, select INDEX line with cursor, then Enter │
*│ │
*│(Description) - PageMaker │
*│(Files) - Included │
*│(Change) - Settings and Running │
*│(Macros) - in PageMaker PAGE23.ZIP │
*│(Version) - History │
*│(Other) - Macros not included │
*└─────────────────────────────────────────────────────────────────────────────┘
* (Description) of (PageMaker):
*
* The QEdit macros in PageMaker PAGE23.ZIP paginate documents and
* QMAC txtfiles so page break locations can be seen and moved
* for better readability.
*
* (Files) Included in PAGE23.ZIP:
*
* PAGExx.QM this txtfile of macros
* PAGExx.MAC macfile converted from this txtfile with QMAC
* PAGE.TST 200 line document with line numbers to set parameters
* PAGE-QM.TST 200 line document with line numbers and asterisk in column 1
* PAGE.INF description of macros
*
* (Change) Settings and Running:
*
* For different settings change ** below with the following formulae:
* (PL-TM-BM-1)= 53, (TM-2)= 4, .... etc where TM= 6, BM= 6, PL= 66
* These macros paginate to 54 lines/page. Remember INSERT must be ON.
*
* Depending on whether a document is reloaded or re paginated, there
* may be an extraneous carriage return and/or line feed present that
* cannot be removed when paginating. You may also see the top margin
* vary +- 1. Just be aware. Some printers may also handle documents
* paginated with these macros differently.
*
* It is important that no lines in a document or a QMAC txtfile
* contain "page[space]-" or that and the subsequent line will be deleted
* when using some of the macros.
*
* These macros require "QEdit and QMAC v2.1, February, 1990" or later.
*
* To BEGIN, just type "START PAGE" <Enter>. All pertinent files will be
* loaded in the "Ring" for viewing, and PAGE23.MAC is read.
* Alternatively, type "START PAGE 0" <Enter> and the disk copies of all
* files in the "Ring" will be loaded ready for editing, saving time.
*
* (Macros):
*
*┌────────────────────────────────────────────────────────────────────────────┐
*│(Ctl_1) Finds first word in Index on cursor line marked in txtfile below │
*└────────────────────────────────────────────────────────────────────────────┘
*
* Ctl_1 macro has 2 steps:
*
* 1. Press Ctl and 1 at the same time. A down arrow shows at the
* end of the top line. Cursor down to desired line in Index.
*
* 2. Press Enter. The macro first erases the down arrow, and
* then finds the first word on the cursor line in the document
* below marked with (...) around it.
*
02 macrobegin
unmarkblock * unmark any marked blocks
begfile endline * go to file begin endline
#25 * put down arrow at endline
begline
find #25 return return begline * highlight down arrow
pause * pause for Index selection
wordright markword * mark first word on line
copy * copy word to scrap buffer
begfile * begfile
find #25 return return delch * find & delete down arrow
endpara * go to end of Index
makectrofscreen * cursor line center of window
find "(" paste ")" return return * find first marked word in doc
jfalse NOMARK:
begline * if mark found go to begline
jump END:
NOMARK:
begfile * if no mark found GO TO begfile
END:
*
* 45 bytes Sat 09-29-1990 16:00:22 t
*┌─────────────────────────────────────────────────────────────────────────┐
*│(Alt_4) AUTOMATIC Page Breaks Only, NO Page #'s , for QMAC txtfiles only │
*└─────────────────────────────────────────────────────────────────────────┘
* Be careful not to place page breaks within a macro. QMAC sometimes gets
* confused when page break lines are within macros, especially with labels.
* Place page breaks only between macros.
@4 macrobegin
setprintpagesize "0" return * cut off QEdit pagination
LABEL1: * & top/bottom margins
find #12 #27 return "n" return
jfalse LABEL2:
delline * delline if FF Esc found
jump LABEL1:
LABEL2:
begfile find #10 return "n" return
jfalse LABEL3:
delline * delline if LF found
jump LABEL2:
LABEL3:
begfile
#10 repeatcmd "3" return * insert 4 LF's on top
splitline cursordown ** set "3"=(TM-3) **
begline
LABEL4:
cursordown
repeatcmd "52" return ** set "52"=(PL-TM-BM-2) **
jfalse LABEL5:
"Cursor only to between macros, ENTER to set"
return
cursorup markline markline
pause deleteblock begline
#42 #12 #27 repeatcmd "71" return * insert asterisk FF 72 Esc's
#10 repeatcmd "4" return ** set "4"=(TM-2) **
return
jump LABEL4:
LABEL5:
endfile
return
#42 #12 #27 repeatcmd "77" return
begfile
*
* 193 bytes Sat 07-28-1990 15:20:09
*┌─────────────────────────────────────────────────────────┐
*│(Alt_5) Removes Pagination Only, for QMAC txtfiles only │
*└─────────────────────────────────────────────────────────┘
@5 macrobegin
LABEL1:
begfile find #12 #27 return "n" return
jfalse LABEL2:
delline * delline if FF Esc found
jump LABEL1:
LABEL2:
begfile find #10 return "n" return
jfalse LABEL3:
delline * delline if LF found
jump LABEL2:
LABEL3:
begfile
*
* 37 bytes Sat 07-28-1990 15:20:29
*┌──────────────────────────────────────────────────┐
*│(Alt_6) AUTOMATIC Page Breaks Only, NO Page #'s │
*└──────────────────────────────────────────────────┘
@6 macrobegin setprintpagesize "0" return
lab1: begfile find #12 #27 return "n" return
jfalse lab2: delline jump lab1:
lab2: begfile find #10 return "n" return
jfalse lab3: delline jump lab2:
lab3: begfile find #12 return "n" return
jfalse lab4: delch jump lab3:
lab4: begfile find "page " "-" return "n" return
jfalse lab5: delline delline jump lab4:
lab5: begfile
#10 repeatcmd "4" return splitline cursordown ** set "4"=(TM-2) **
lab6: begline cursordown repeatcmd "53" return ** set "53"=(PL-TM-BM-1) **
jfalse lab7: begline #12 #27 repeatcmd "72" return
#10 repeatcmd "5" return return jump lab6: ** set "5"=(TM-1) **
lab7: endfile return begline #12 #27 repeatcmd "78" return begfile
* 136 bytes Sat 07-28-1990 15:20:38
*┌────────────────────────────────────────┐
*│(Alt_7) PAGE BREAKS ONLY, NO Page #'s │
*└────────────────────────────────────────┘
@7 macrobegin setprintpagesize "0" return
lab1: begfile find #12 #27 return "n" return
jfalse lab2: delline jump lab1:
lab2: begfile find #10 return "n" return
jfalse lab3: delline jump lab2:
lab3: begfile find #12 return "n" return
jfalse lab4: delch jump lab3:
lab4: begfile find "page " "-" return "n" return
jfalse lab5: delline delline jump lab4:
lab5: begfile
#10 repeatcmd "4" return splitline cursordown ** set "4"=(TM-2) **
lab6: begline cursordown repeatcmd "53" return ** set "53"=(PL-TM-BM-1) **
jfalse lab7: "UP arrow key only, ENTER to set" return
cursorup markline markline
pause deleteblock begline #12 #27 repeatcmd "72" return
#10 repeatcmd "5" return return jump lab6: ** set "5"=(TM-1) **
lab7: endfile return begline #12 #27 repeatcmd "78" return begfile
*
* 204 bytes Sat 07-28-1990 15:20:55
*┌────────────────────────────────────────────────────┐
*│(Alt_8) PAGINATE, Add Page #'s, NO Query Bar │
*└─[Add page # at prompt, then ENTER for next page]───┘
*
@8 macrobegin setprintpagesize "0" return
lab1: begfile find #12 #27 return "n" return
jfalse lab2: delline jump lab1:
lab2: begfile find #10 return "n" return
jfalse lab3: delline jump lab2:
lab3: begfile find #12 return "n" return
jfalse lab4: delch jump lab3:
lab4: begfile find "page " "-" return "n" return
jfalse lab5: delline delline jump lab4:
lab5: begfile
#10 repeatcmd "4" return splitline cursordown ** set "4"=(TM-2) **
lab6: begline cursordown repeatcmd "53" return ** set "53"=(PL-TM-BM-1) **
jfalse lab7: "UP arrow key only, ENTER to set" return cursorup
markline markline pause deleteblock begline #12 #27 repeatcmd
"72" return #10 repeatcmd "5" return return ** set "5"=(TM-1) **
"page " "--" return return cursorup cursorup centerline jump lab6:
lab7: endfile return begline #12 #27 repeatcmd "78" return begfile
lab8: find "page " "-" return "n" return
jfalse lab9: makectrofscreen cursorright repeatcmd "5" return
pause jump lab8:
lab9: begfile
*
* 254 bytes Sat 07-28-1990 15:21:11
*┌──────────────────────────────────────────────────┐
*│(Alt_9) PAGINATE, Add Page #'s With Query Bar │
*└─[Add page # at prompt, then ENTER for next page]─┘
*
@9 macrobegin setprintpagesize "0" return
lab1: begfile find #12 #27 return "n" return
jfalse lab2: delline jump lab1:
lab2: begfile find #10 return "n" return
jfalse lab3: delline jump lab2:
lab3: begfile find #12 return "n" return
jfalse lab4: delch jump lab3:
lab4: begfile find "page " "-" return "n" return
jfalse lab5: delline delline jump lab4:
lab5: begfile
#10 repeatcmd "4" return splitline cursordown ** set "4"=(TM-2) **
lab6: begline cursordown repeatcmd "53" return ** set "53"=(PL-TM-BM-1) **
jfalse lab7: "UP arrow key only, ENTER to set" return cursorup
markline markline pause deleteblock begline #12 #27 repeatcmd
"72" return #10 repeatcmd "5" return return ** set "5"=(TM-1) **
"page " "--" return return cursorup cursorup centerline jump lab6:
lab7: endfile return begline #12 #27 repeatcmd "78" return begfile
lab8: find "page " "-" return "n" return
jfalse lab9: makectrofscreen begline "Enter page # (start p2) "
" " repeatcmd "17" return #25 #25 return cursorup begline
markblockbegin endline markblockend cursordown begline
wordright cursorright repeatcmd "5" return pause
cursorup delline cursordown jump lab8:
lab9: begfile
*
* 327 bytes Sat 07-28-1990 15:21:27
*┌────────────────────────────────┐
*│(Alt_0) Removes Pagination Only │
*└────────────────────────────────┘
@0 macrobegin
lab1: begfile find #12 #27 return "n" return
jfalse lab2: delline jump lab1:
lab2: begfile find #10 return "n" return
jfalse lab3: delline jump lab2:
lab3: begfile find #12 return "n" return
jfalse lab4: delch jump lab3:
lab4: begfile find "page " "-" return "n" return
jfalse lab5: delline delline jump lab4:
lab5: begfile
*
* 78 bytes Sat 07-28-1990 15:21:44
* (Other) Macros: See ALLMACRO.INF
*
* (Index) is at top of file
*
* (Version) History:
*
* v1.1-8 misc changes, NO page #'s
* v1.9 - added page #'s, NO page # query bar
* v2.0 - added page #'s with page # query bar
* v2.1 - summary of latest macros
* v2.2 - added Alt_4 & 5 to paginate QMAC txtfiles only
* - added Alt_1 from BookMarker Macros BOOK12.ZIP
* v2.2a- modified Alt_4 to not place asterisk in column 1 at begfile
* v2.2b- corrected Alt_4, label2: was on wrong line
* v2.3 - wrong version of PAGE.TST was in v2.2b, corrected
* - modified Alt_8,9 & 0 so no lines contain "page[space]-" and
* therefore necessary lines will not be deleted when paginating
* - changed Alt_1 to Ctl_1
* 2.3a - Changed other file names in series, this is an update.
* 2.3b - Changed documentation.
* 2.3c - PAGE23.MAC was wrong file. Corrected.
* 2.3d - Modified documentation and added START.BAT.
* Tom Hogshead Wed 10-31-1990